home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / midi / omed_pt.lha / rexx / CmdUp.omed < prev    next >
Text File  |  1995-11-25  |  506b  |  21 lines
  1. /* Drag cmd one up  - Case 04-11-95 */
  2. address OCTAMED_REXX
  3. options results
  4. 'ed_getnumlines var numlines'
  5. 'ed_getcurrline var currline'
  6. if currline = 0 then do
  7. 'ed_advanceline up'
  8. exit
  9. end
  10. else
  11. 'op_update off'
  12. 'ed_advanceline up'
  13. do until currline = numlines
  14. 'ed_getdata line' currline 'cmdnum var cmdnum'
  15. 'ed_getdata line' currline 'qual var qual'
  16. 'ed_setdata line' currline - 1 'cmdnum' cmdnum 'qual' qual
  17. currline = currline + 1
  18. end
  19. 'ed_setdata line' numlines - 1 'cmdnum 00 qual 00'
  20. 'op_update on'
  21. exit